home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Video Toaster 4.3
/
Video Toaster v4.3.iso
/
3.1
/
toasterall
/
arexx_examples
/
lwm
/
cutfaces.lwm
< prev
next >
Wrap
Text File
|
1993-10-01
|
473b
|
27 lines
/* CMD: CutFaces
* Cut faces from current layer
* By Arnie Cachelin © 1993 NewTek Inc.
*
*/
mxx="LWModelerARexx.port"
signal on error
signal on syntax
mxx_add = addlib(mxx,0)
call main
if (mxx_add) then call remlib(mxx)
exit
syntax:
error:
t=Notify(1,'!Rexx Script Error','@'ErrorText(rc),'Line 'SIGL)
if (mxx_add) then call remlib(mxx)
exit
main:
call SEL_MODE(USER)
call SEL_POLYGON(CLEAR,CURVE)
call SEL_POLYGON(SET,FACE)
call CUT()
return